-- background: 2735 from stack: in.0
-- bmap block id: 3325
-- flags: 4000
-- background id: 0
-- name: label


-- part 19 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=4 top=22 right=72 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 9911 / 9911
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  visual effect checkerboard
  go to card "Help"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=452 top=74 right=124 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 129 / 129
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan All
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  show all cards
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=4 top=74 right=124 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 9910 / 9910
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  global oldlevel
  play "beeper" tempo 300 "a#7"
  visual effect iris close
  put the freeSize of this stack into it
  if it > 1024*5 then doMenu "Compact Stack"
  set userLevel to oldlevel
  go Home
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=452 top=126 right=176 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 9906 / 9906
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Label
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  set lockscreen to true
  doMenu "Copy Card"
  go to last card
  domenu "Paste Card"
  set lockscreen to false
  answer "This is your new label."
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=452 top=230 right=280 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 9908 / 9908
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Typeface
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  if the selectedLine is empty then
    answer "No Selected Field"
  else
    doMenu "Text Style..."
  end if
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=452 top=22 right=72 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 9909 / 9909
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Label
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  hide bg button "Help"
  hide bg button "Home"
  hide bg button "Credits"
  hide bg button "New Field"
  hide bg button "Print Label"
  hide bg button "Installer"
  hide bg button "Scan All"
  hide bg button "New Label"
  hide bg button "Delete Card"
  hide bg button "Typeface"
  hide bg button "Find"
  hide bg button "Next"
  hide bg button "Prev"
  hide bg button "End"
  open printing with dialog
  print this card
  close printing
  show bg button "Help"
  show bg button "Home"
  show bg button "Credits"
  show bg button "New Field"
  show bg button "Print Label"
  show bg button "Installer"
  show bg button "Scan All"
  show bg button "New Label"
  show bg button "Delete Card"
  show bg button "Typeface"
  show bg button "Find"
  show bg button "Next"
  show bg button "Prev"
  show bg button "End"
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=452 top=178 right=228 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 99 / 99
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  answer "Delete this Label?" with "OK" or "Cancel"
  if it is "Cancel" then exit mouseup
  else
    domenu "Delete Card"
  end if
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=4 top=126 right=176 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 9912 / 9912
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Credits
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  visual effect checkerboard
  go to card "me"
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=4 top=178 right=228 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 9913 / 9913
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Field
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  domenu "New Field"
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=452 top=282 right=332 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 9914 / 9914
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseup
  play "beeper" tempo 300 "a#7"
  ask "Enter string to be found."
  if it is empty then exit mouseup
  find it
end mouseup


-- part 68 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=221 top=309 right=342 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 9002 / 9002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseDown
  repeat
    visual effect wipe left
    go to previous card of this bg
    if the mouse is up then exit repeat
  end repeat
end mouseDown



-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=292 top=309 right=342 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 9903 / 9903
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseDown
  repeat
    visual effect wipe right
    go to next card of this bg
    if the mouse is up then exit repeat
  end repeat
end mouseDown



-- part 70 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=4 top=230 right=280 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 9907 / 9907
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Installer
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  answer "Install Label Factory button in Home card?" with "Install" or "Cancel"
  if it = "Cancel" then
    exit mouseup
  end if
  if it = "Install" then
    set the userLevel to 5
    set the lockScreen to true
    show bg button "Label Factory 1.0"
    choose button tool
    click at the loc of bg button "Label Factory 1.0"
    domenu copy button
    hide bg button "Label Factory 1.0"
    set the lockscreen to false
    go home
    domenu paste button
    repeat
      set the loc of button "Label Factory 1.0" to the mouseloc
      put the mouseloc into oldloc
      put "Position the button where you'd like it, and then click."
      wait until the mouseloc ≠ oldloc
      put empty into msg
      hide msg
      repeat until the mouseclick
        set the loc of button "Label Factory 1.0" to the mouseloc
      end repeat
      choose browse tool
      answer "Is it in the right place?" with "No" or "Yes"
      if it is "Yes" then exit repeat
      else choose button tool
    end repeat
  end if
  choose browse tool
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=259 top=310 right=341 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 9003 / 9003
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Restore Buttons
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  show bg button "Help"
  show bg button "Home"
  show bg button "Credits"
  show bg button "New Field"
  show bg button "Print Label"
  show bg button "Installer"
  show bg button "Scan All"
  show bg button "New Label"
  show bg button "Delete Card"
  show bg button "Typeface"
  show bg button "Find"
  show bg button "Next"
  show bg button "Prev"
  show bg button "End"
end mouseUp



-- part 74 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=66 top=231 right=279 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 9915 / 9915
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label Factory 1.0
----- HyperTalk script -----
on mouseUp
  get short name of the target
  go it
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=313 right=342 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 9905 / 9905
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: end
----- HyperTalk script -----
on mouseUp
  play "beeper" tempo 300 "a#7"
  go to last card
end mouseUp